<script>on mousedoubleclickwaitcursorgo cd the selectedtext of cd fld "userlist"end mousedoubleclick</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>6</left>
<top>45</top>
<right>53</right>
<bottom>63</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add</name>
<script>on mouseUpanswer "What type of account?" with "Address" or "Alias"if it is "address" thenanswer program "New username address?"waitcursoradduser itelseask "New username alias?"waitcursoradduser itend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>125</left>
<top>45</top>
<right>176</right>
<bottom>63</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go to</name>
<script>on mouseUpif the optionkey is down then reset menubarwaitcursorgo cd the selectedtext of cd fld "userlist"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>55</left>
<top>45</top>
<right>123</right>
<bottom>63</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Remove</name>
<script>on mouseUpanswer "Are you sure?" with "Yes" or "No"waitcursorif it is "no" then exit mouseupdeleteuser the selectedtext of cd fld "userlist", word 2 of the selectedline of cd fld "userlist", serverpass()end mouseUp</script>
<script>on mouseUpput "..."put usrpass("admin","KALLfEhB")if the result is not empty then answer the resultend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text>AdminGuest</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>MacMail!</text>
</content>
<name>MMSI-main</name>
<script>function mail paramswaitcursorset the itemdelimiter to "Γêå"if there is not a cd item 2 of params thenreturn "err,11"elseif length(bg fld "waiting" of cd item 2 of params) > 28000 thenreturn "Err,12"elseput params & "Γùè" after bg fld "waiting" of cd item 2 of paramsend ifend ifreturn "OK"end mailfunction mymail username, passwordput username && passwordwaitcursorif there is a cd username thenif password is passwrd(username) thenput empty into char length(bg fld "waiting" of cd username) of bg fld "waiting" of cd usernameput bg fld "waiting" of cd username into returnstuffput empty into bg fld "waiting" of cd usernameelseput "err,13" into returnstuffend ifelseput "Err,11" into returnstuffend ifreturn returnstuffend mymailfunction passwrd usernamewaitcursorif there is a cd username thenreturn bg fld "password" of cd usernameelsereturn "Err,11"end ifend passwrd</script>
